1 CLEAR,&H9EFF:A$(0)="34088EFFFF341086201F8B9E32109E34D629869F1F8BD732D74AD765D77ED796D7B14F9FF8108C00C7271831213F14C1CE270A850126088A013430200284FE313F2716313F3F14C1CE270A850226088A023430200284FD31218C013F270830013F14C1CE26BFBF203210BF20349EF8860310"
2 A$(1)="8C00C7271831213F14C1CE270A850126088A013430200284FE313F2716313F3F14C1CE270A850226088A023430200284FD31218C00002708301F3F14C1CE26BF3F0E35308CFFFF1026FF65350839":CLS:FORT=1TO194:A=T>116:POKE&H9EFF+T,VAL("&H"+MID$(A$(-A),T*2+A*232-1,2)):NEXT